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MODULE IMAGE_LOADER (2TIT {Ecrerte Image Loader’ 
; p eecin IDENT = ‘vO04- Tho: ° ° 
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'® COPYRIGHT (¢) ere 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'# ALL RIGHTS RESERVED. 
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® 
we 
is THIS SOFTUARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPLED 
is ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is copes SAIHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTUARE 1S HEREGY = 
it TRANSFERRED. ‘ 
# 
is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
it CORPORATION. * 
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ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT 
i This routine determins if the requested image needs to be 
i loaded. It will load an image and initialize the transfer 
vectors. 
i 
H ENVIRONMENT: 
+4 VAX/VMS operating system. unprivileged user mode, 
$ AUTHOR: Elliott A. Drayton Creation date: 23-Mar-1983 
<$ Modified by: 
45 i v03-002 EAD0181 Elliott A. Drayton 27-Jun-1984 
2 Added support for workstations. 
48 i v03-001 EADO161 EilLiott A. Drayton 20-Apr-1984 
$3 g Change bind of image name in map_image. 
i 


iss-32 V4.0-74 
ERF .SRCJIMAGELOAD.832; 
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REQUIRE "SRCS:ERFDEF .REQ'; 
FORWARD aoe NE 


wn 
Wino OOor 


mage, 
Tnaben loader, 
Map_ image; 
EXTERNAL ROUTINE 
_ ge 
ma 
eregsie "Tasee: 
GLOBAL 
Bus_ image: 


Bus_version: 


Disk xfer, addr: 


tp p.image: 
Lp_xfer_addr: 
Max ist type: 
Max | 
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4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
! 
1 Packet_processor_ image: 
1 Packet_processor_version: 
1 Realtime_image: 
1 Realtime_version: 
; Realtime_ xfer, addr: 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Translate “entry. table: 
Workstation_image: 
Wortstation_version: 
Workstation_xfer_addr: 
Worst_error: 


> 
me 


LITERAL 
Word_size = 2, 
Longword = 4, 
Descriptor_ Length = 8; 


EXTERNAL LATERAL 
_loaderr, 

Erf” _unkentry, 

Erf-unkclass; 


SD ("Lnm$file_dev'); 
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p_type: 
Packet” “processor_ xfer_addr: 


1Foseoctoge 25:49:98 


14-Sep-1 


AX-11 Bliss 
ERF .SRCJIMA 


! Gets loaded image vector information 
! Determines which image to load 
! Translates image name and loads it. 


! Call loaded image with correct params. 


esp 2) FIELD (desc_fields), 
WORD 
pit 8) FIELD (desc. fields), 


vEctone 3) FIELD (desc_fields), 


!' Number of bytes in a word 
i Number of bytes in a longword 
i Number of bytes in a str ng descriptor 


-32 V4. 
AGELOND: 835; 


! Address of bus xfer address table 


Address of disk xfer address table 


xfer address table 


REF bit 
REF V 
REF V 
REF B 
REF V 
REF V 
REF B 
REF V R -WORD], 
atte R * LONG ‘ ! Address of lp xfer address table 
BYTE. 
REF VECTORE ned Address of realtime xfer address table 
REF BLOCKVECTORE 3) FIELD (desc_fields), 
REF VECTORC,WOR p 
REF BLOCKVECTOR 23 FIELD (desc_fields), 
REF VECTORE. 
REF VECTO ne Address of realtime xfer address table 
REF BLOCKY chon $3 FIELD (desc_fields), 
REF VECT OR WORD), 
REF VECTO wo Address of scom xfer address table 
REF BLOCK VECTOR 8) FIELD (desc_fields), 
REF VECTOR ;WORDS, 
REF VECTOR * LONG ' Address of tape xfer address table 
REF VECTOR (,WORD 
REF BLOCKVECTORC,2) FIELD (desc_fields). 
REF VECTORE, WORDS, 
REF VECTOR bees ' Address of workstation 
SBBLOCK CLONGS INITIAL (1); 


ddress of version number of device dependent code 
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14~Sep-1 MAGELOAD.B32; 
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Slopat routine MAP_IMAGE ( image_name, transfer_address) = 
Begin 


Functional description 


This is the control routine for the ERF facili ty 
Any errors encountered will be passed back to this routine. 


Calling sequence 
ERF_CONTROL () 
Input parameters 


a? ot 4 
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Output parameters 
None 
Routine value 


Worst error is returned. 


Bind 
Image_name_addr = .image_name : SBBLOCK(dsc$k_d_bin], 
Addr = .transfer_ address~: LONG; 
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9 
40 Literal 
$ Buffer. size = 80; 
re Local 
44 Buffer: SBBLOCK nut tor are ° 
45 Desc: wer tea rc 
46 Filename. desc: VECTOR C oseNG alt (buf fer_size. buffer), 
4 Filscalst: Sitmist decl e tems = 1), 
re Status 
49 Trninmlst: Sitmist_decl (items = 1); 


10 
orn coset ame come ICSI FESRSE—_ War aE aad: 858 


i 4 

: } § Init DESC in case there is no translation. 

; 155 Desc dsc$w_length] = .image_name_addr(dsc$w_length); 

; ! 83 Desc dscSe~pointer) = Rm ye poet mye te, B 

i n 

: 139 i : Initialize a item List for a call to file scan. 

3 19) tte Sitmist_init ( itmlst = filscalst,(itmcod = fscn$_name,bufadr = 0,bufsiz = 0) ); 
; 188 re Status = SFILESCAN (srcstr = image_name_addr, valuelst = filscalst) ; 
‘ 188 2 If NOT .status then signal_stop (.Status) ; 

; 166 rk 

; 16 29 ! 

: 168 451 ; Use the descriptor from file scan in the translate to get 

: 198 26 the real image name in filename_desc. 

: 171 P0454 2 Sitmist_init ( itmlst = trninmlst, Citmcod = nas string. 

$ Ire P 0455 bufsiz = .filéname_desc 01. 

. 3 P 3638 bufadr = .filename_desc(1 

; if 2 retlen = filename descl0J)); 

: 176 Pp 0089 If STRNLNM ( attr = = of(lnm$m_case_blind), 

: 17 P 0460 tabnam = Linm$Tile dev_desc, 

; 178 P 0461 lLognam = filscals 

: 179 6¢ itmist = trninmlst) 

; 180 6 then 

3 + 2 464 ( descCdsc$w_length] = .filename_desc(0) ; 

; 18¢ 65 desc(dsc$a_pointer] = .filename_descl1J) ; 

: 184 bc? 

; + + Bees : DESC now has the original image name or its translation. 

; 187 0690 Status = LIBSMAP_IMAGE ( desc, desc, addr ); 

: +4 ke If NOT .status then (signal (erf_loaderr, 1, desc, .status); addr = 0 ); 
: 190 $698 Return .status; 

3; «6191 0474 End; 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
gf 4C 00000 P.AAB: .ASCII Ysa t tle_dow' 
O06 449 Bets P.AAA: .LONG 1 
0000000° 1 -ADDRESS P.AAB 
-PSECT S$GLOBAL$,NOEXE, PIC,2 
00000 BUS_IMAGE:: 
-BLK 
00004 BUS_VERSION:: 


76 65 64 SF 65 6C 69 66 24 6D 


4 


-TITLE IMAGE_LOADER Errorlog Image Loader 
. WOSeO0N ° . 


IMA OADER Errorl Image Loader 
00600 sP 


00000001 


10 
1S-Sep-1964 25:49:35 YAKet] Ol jn5252y4.0-74 
00008 BUS_XFER ADDR 
OOOOC DISK IMAGE: : im 
00010 DISK_VERSION:: 
00014 DISK_ XFER ADDR: 
00018 LP_IMAGE:: 
0001° LP_VERSION: : 
00020 LP_XFER r+ : 
00024 MAX_MISC “Tee: 
00025 MAX_LP_ TPES 
‘BLKE 


o0se -BLKB 
000 PACKET PROCESSOR XFER_ADDR:: 


0002¢ PACKET PROCESSOR IMAGE : 
00030 secede VERSION: : 
00034 REALTIME. IMAGE :: 
00038 REALTIME ites 
0003C REALTIME. XFER_AD 
00040 SCOM_IMAGE:: 
.BLKB 
00044 SCOM_VERSION: : 
00048 SCOM_XFER ADDR: : 
0004C TAPE_IMAGE:: 
-BLKB 
00050 TAPE_VERSION: : 
-BLKB 
00054 TAPE_XFER ADDR: : 
00058 TRANSLATE it i ; 
0005¢ WORKSTATION IMAGE : 
00060 WORKSTATION VERSION: : 
00064 WORKSTATION XFER ADDR: 
00068 WORST_ERROR: : 
LONG 


NNR = RR RR RR 
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LNMSFILE_DEV DESC== P 
-EXTRN GET tobe. EXEC_IMAGE 


P 
age ; 
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Mba ° ° 1228 08= 1382 93:33:93 ERF .SRCJIMAGELOAD.B32; . (4 
~EXTRN OS gh IMAGE, ERF_LOADERR 
~EXTRN ERF_UNKENTRY, ERF_ONKCLASS | 
eEXTRN SYSSFILESCAN, SYSSTRNLNM 


~PSECT SCODE,NOWRT, PIC,2 


; Routine Size: 189 bytes, Routine Base: S$CODE + 0000 


00 -ENTRY MAP_IMAGE, Save R2 3 
5E FF7C CE ‘ MOVAB =132(SP), SP : 
4 Ac MOVL §§IMAGE_NAME, R1 : 0420 
4 AE BF OA MOVZBL #80, FILENAME DESC + 0421 
8 AE 4 at 1 MOV BUFFER, FILENAME DESC+4 : 
: A 61 8B 1 MOVW (R1), BESC : 0438 
A 06 «Al p 1 MOVL 4(R15, DESC+4 : 0439) 
3 14 AE : 001 MOVAB FILSCALST, $SITMBLKPTR + 0444 
00060000 8F : 0 MOVL #393216, (SSITMBLKPTR)+ : 
0 7C CLRQ ($$ITMBLKPTR)+ ; 
0 D4 9 8 CLRL ($$ITMBLKPTR)+ : 
E D4 0002D CLRL —s_ = (SP) + 0446 
18 AE 9F 0002F PUSHAB FILSCALST : 
51 OD 00032 PUSHL 1 : 
000000006 00 3 FB 000 CALLS #3, SYSSFILESCAN ; 
2 0 pO 000 MOVL RO, STATUS : 
09 3 E8 0003E BLBS STATUS, 1 + 0447 
DD 00041 PUSHL STATUS ; 
000000006 00 01 FB 00043 CALLS #1, LIBS$STOP : 
0 04 AE 44 00044 1$: MOVAB TRNLNMLST, $$ITMBLKPTR + 0457 
80 24 AE BO 0004 MOVW FILENAME DESC, ($$ITMBLKPTR)+ : 
80 02 BO 0005 MOVW #2, (S$SITMBLKPTR)+ : 
80 8 AE 00 0005 MOVL FILENAME_DESC+4, ($SITMBLKPTR)+ : 
0 4 AE 9E 00059 MOVAB FILENAME-DESC, ($$ITMBLKPTR)+ : 
80 04 0005D CLRL  ($$SITMBLRPTR)+ : 
06 AE OF 9005¢ PUSHAB TRNLNMLST + 0462 
7E D4 00062 CLRL = = (SP) : 
1¢ aE 9F 00064 PUSHAB FILSCALST ; 
99000006" 0 9F 00067 PUSHAB LNMSEILE DEV_DESC F 
10 AE 2000099 ef pO O06 MOV. #333384 2, 16(SP) : 
000000006 00 j FB 9078 CALLS i. $YSSTRNLNM ; 
OA 0 £9 O007F BLBC = RO, eS ; 
7 a 24 AE B80 000 ¢ MOVW § FILENAME_DESC, DESC + 0464 
0 AE 28 AE 00 000 MOVL FILENAME~DESC+4, DESC +4 > 0465 
8 AC DD 0008C 2$ PUSHL TRANSFERTADDRESS + 0470 
0 AE 99F O008F PUSHAB DESC ; | 
4 AE 9F 32 PUSHAB DESC : 
000000006 F 9 CALLS #3, LIBSMAP_IMAGE ; 
D 9¢ MOVL RO STATUS ; 
1 E 9 OF BLBS STATUS, 3$ + 0471 
DD 000A? PUSHL STATUS : | 
30 AE 9F 000A4 P_SHAB DESC ; 
DD 000A7 PUSHL # ; | 
000000006 8F DD 000A9 PUSHL #ERF_LOADERR : | 
000000006 00 4 FB OOOAF CALLS #4, CIBSSIGNAL ; 
08 D4 CLRL § @TRANSFER_ADDRESS : | 
50 0 B9 3$ MOVL STATUS, RO : 0473 
4 0008C RET 2 0674 | 
} 
| 
j 
| 
| 
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3 Begin. routine IMAGE_LOADER ( Device_type, Device_class, Transfer_addr ) = 
t+ 


> i et 


LESFS 


| Functional description 


— —?) —) —) — 
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This routine checks to see if the loadable {nage needed 

to process the error packet is available. If it is not then 
it calls get_image to load it. If successful then it call the 
image to obtain information as to what error packets the 
loaded image supports and fills in table entries which will 
allow subsequent access to the modules in the image. 


VF WN —OOONOu 


Calling sequence 
Image_loader (Type, Class, Transfer_addr) 


Output parameters 
None 
Routine value 


SLISPSSISSELSSELLES 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

Input parameters 
i 

i 

i 

i 

i 

! 

i 

' 

Worst error is returned. 
' 


ooo 
wiry 


LESE 


ind 
Xfer_addr = .Transfer_addr, 
Type = .Device_type : word, 
Class = .Device_class : word; 


ooo 


Selectoneu .class of set 


COC$_ZERO_CLASS): 
! If Device_class is zero then Device_type is really entry type. Entry types 
! are not contigious so they should be mapped to a valid subscript. Thus 
! making device_type contigious. 


Begin 
Incr from 1 to .max_misc_type do 


eh he Sh ee BSS S888 3S883E33E383382e2382322823332333323232 
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39 4 egin 
rt 4 av. ronslate_ontry.tebte C.1] EQL .Type then 
egin 
& If Packet _processor_xter_eddr C.1] EQL 0 then 
4 Get_image ( Packet_processor_ image “fe gesc_one)); 
44 Xfer_addr = .Packet_processor_xfér_addr (.1J; 
45 -Device_class = -1; 
4 Exitloop; 
<3 3 ends 
49 i on 


SSS 


me - —— 
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If ..device_class ‘ 0 then 
-device_class = 
lse 
5 Begin 
4 Signal (erf_unkentry, 1, .type); 
-device_class = 0 
3 end End; 
nd; 
40 
41 
4 COCS_DISKI: 
4 egin 
44 If .Disk_xfer_addr C.type] EQL 0 then 
45 Get_image € Disk_imagel.type, dgsc_one) ); 
4 Xfer_addr = .Disk_xTer_addr L.cypel; 


4 End; 


Ws 
ae 


COCS_TAPE): | 


Begin 
I}, Tape_xter addr C.type] EQL 0 then 
Get_image € Tape_imagel.type, desc_one] ); 
ter odér = .Tape_xTfer_addr [.typeJ; 
na; 


v SVU PUPS 
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COC$_SCOM): 
Begin 
5 If .Scom_xfer_addr C.type] EQL 0 then 
5 Get_image T Scom_imagel.type. desc_one) ); 
564 Xfer_addr = .Scom_xfer_addr [.type); 
203 End; 
56? 
8 
56 CDC$_BUS): 
570 Begin 
571 If .Bus_xfer_addr C.type] EQL 0 then 
276 Get_tmage ( Bus_imagel.type, desc_one] ); 
57 Xfer_addr = .Bus_xfer_addr [.type); 
574 End; 
32 
7 
57 COCS_REALTIME): 
3f8 Begin 
57 If .Realtime_xfer_addr C.type] EOL 0 then 
5 GET_IMAGE ( Realtime_imagel.type, ayes. enel d3 
581 Xfer_addr = .Realtime_xTer_addr [.type); 
2 § End; 
3 CDC$_WORKSTATION): 
5 Begin 
: If .Workstation_xfer_addr C.type) EQL 0 then 
0588 Xfer_addr = .Workstation_xfer_addr [.typ 


GET_IMAGE ( Qorkstation_imagel.type, desc_one) ); 
el; 
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afon ae 1a-808- 198 $3; $3 $3 ERF .SRCJIMAGELOAD.B32; . (33 
3 9 End; 
: 3 1 COTHERWISE): 
: ; $8 If we get here then we have a unknown device class. 
; i$ 36 Stiek tor€.gebwtens. 0 aelacel 
P4 na erT_unNkclass, » eCL@Ss); 
; 315 38 ae = 
; 1 38 TES; 
3 1 Return true; 
: 318 End; 
O3FC 000 .ENTRY IMAGE LOADER Save R2,R3,R4,R5,R6,R7,RB,R9 ; 0475 
59 999000006 0 9E a0 MOV LIBSSTGNA “ah ; 
8 0000000v 9E 000 MOVAB GET_IMA GE ; 
57 00000000' 00 9 9019 MOVAB PACRET Bits XFER_ADDR, R? : 
55 OC AC DO 0001 MOVL TRANSFER R5 : 0507 
34 04 AC DO 0001B MOVL DEVICE_T : 0508 
3 8 AC DO OOODIF MOVL DEVICE. “IPE R3 + 0509 
63 B85 00023 TSTW > 0514 
4B 12 B058 BNEQ 6$ : 
56 FC «OA? «9A 0002" MOVZBL MAX_MISC_TYPE, R6 : 0520 
52 D4 00028 CLRL ; 
28 11 00020 BRB 3 ; 
50 30 A? DO O002F 18: MOVL ‘TRAN LATE ENTRY_TABLE, RO : 0522 
64 6042 81 999 ; CMPW =s-s (RO) LIJ, TR4) : 
16 12 000 BNEQ 5 ; 
50 6? DO 00039 MOVL PACKET PROCESSOR_XFER_ADDR, RO > 0524 
6042 D5 0003C TSTL (RO)EII ; 
OA 12 0003F BNEQ 3 
50 06 A? : 0041 MOVL Caos PROCESSOR_IMAGE, RO : 0525 
6042 7F 00045 PUSHAQ : 
ra. 01 FB 00048 CALLS : 
50 67 DO 00048 2s: MOVL ral SPROCESSOR_ XFER_ADDR, RO : 0526 
65 60n¢ DO 0004 VL tld, j 
63 cE 00 MNEGL : 0527 
ee 99 RB : 0523 
D4 52 $ F3 00057 3$: AOBLEQ ae I, 1$ : 0520 
é p 0 B 4S: STL. (RB) : 0532 
i D BL Ss 5$ F 
7E 3¢ 0 F MOVZWL (R4), -(SP) > 9536 
1 DD 0006 PUSHL #1 F 
000000006 8F DD PUSHL HERE UNKENTRY F 
69 ; FB A CALLS CIBSSIGNAL ; 
6 p 5$: CLAL {R4) > 0537 
000§ 1 F BRW 238 ; 931 
01 : 81 6$: CMPW 3S s«(R3), #1 : 054 
5 ‘ 7 BNEQ 8$ ; 
59 eC A p 7 MOVL § DISK_XFER_ADDR, RO > 0544 
64 7B MOVZWL (R4)> R ; 
6042 0D 43 TST (RO) (R2 : 
OA 1 ) BNEG 7$ ; 


——————— ) 
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-Sep=1 RF .SRC LOAD.B32; 
50 4 A? 00 3 MOVL DISK IMAGE, RO 3 0545 
604 F PUSHAQ (RO)ER : 
68 ol F CALLS #1, GET_IMAGE : 
EC h p 7$: ROVL Sggagerse RO + 0546 
02 6 8 3 8$: CMPW 3S s«(R3), #2 + 0551 
: : 3 BNEQ 108 : 
59 2c A p 9 MOV TAPE_XFER_ADDR, RO + 0553 
64 9C MOVZWL (R4)- R : 
6042 p OF TSTL (RO) ER2 : 
OA A2 BNEG 69S : 
50 24 =AT p AG MOVL _- TAPE_IMAGE, RO + 0554 
604¢ F OOOA8 PUSHAQ (RO)ER2) F 
$8 o1 F AB CALLS #1, GET_IMAGE : 
2c ay p Oag 9$ ROVE TABE_XFER_ADDR, RO + 0555 
20 4 8] 00B4 10$:  CMPW th), #32 + 0560 
1 ‘ 087 BNEQ 12$ : 
59 20 A p 089 MOVL  SCOM_XFER_ADDR, RO + 0562 
64 OBD MOVZWL (R4)> R : 
6042 D 99¢ TSTL  (RO)ER2 ; 
OA 12 000C¢ BNEQ ~=s«i1$ : 
50 18 A? p 00¢ MOVL § SCOM_IMAGE, RO : 0563 
6042 7F 000C9 PUSHAQ (RO)ER2] ; 
68 01 FB O0CC CALLS #1, GET_IMAGE ; 
50 20 A? DO OOOCF 118: MOVL SCOM_XFER_ADDR, RO ; 0564 
67 11 0003 BRB 0$ : 
0080 8F 63 8100005 128:  CMPW  (R3), #128 + 0569 
1 if} OODA BNEQ 15$ ; 
50 EO A p 00DC VL BUS_XFER_ADDR, RO : 0571 
52 64 : O0E0 MOVZWL (R4J é : 
6042 D5 000E TSTL (RO)ER2 ; 
OA 1 OOEG BNEQ =«-'13$ : 
50 ps8 A? p O0E VL «BUS IMAGE. RO + 0572 
6042 7F OOOEC PUSHAQ (ROJER2 3 
rs 01 FB OOOEF CALLS #1, GET_IMAGE ; 
50 EO A? 0 OOF2 13$:  MOVL §_XFER_ADDR, RO : 0573 
44 1 Org 14$: BRB $ : 
0060 8F 63 8} OOF 15$: CMP (R3), #96 : 0577 
50 16 A? 96 OFF MOVL §REALTIME_XFER_ADDR, RO : 0579 
52 64 103 MOVZWL (R4), R : 
6042 D5 001 TSTL (RO) ERe ; 
OA 12 001 BNEQ 16 : 
50 Oc A? p 1 MOVL REALTIME _IMAGE. RO + 0580 
6042 7F 0010F PUSHAQ (RO)CR2 F 
01 FB 0011 CALLS #1, GET_IMAGE : 
14 A? p 11 168: MOVL REALTIME XFER_ADDR. RO : 0581 
} 100119 17$: BRB 20$ F 
0046 8F 8} 118 18$:  CMPw  (R3), #70 > 0584 
Q 1 BNEQ 218 : 
59 3c OC«A p 1 VL WORKSTATION_XFER_ADDR, RO + 0586 
64 1 MOVZWL (R4) : 
6042 05 001 STL (RO) ER2 F 
50 36 AP 0 0013 ROVE WORKSTATION. IMAGE, RO ; 0587 
6042 OF 1 5 PUSHAQ CRODERO] . ; 


10 
BS ets Serrins foes ee NERESHOE C2903 Yr a@Ndatadlol: 32 re i 
# xf 
6 


CALLS 
38 198: MOVL SSH Ot FER ADDR, RO 
60 0$: 


$ MOVL R2J 
BRB 
218: MOVZWL ch », =(SP) 
PUSHL 


PUSHL n, UNKCLASS 


1 
000000006 8F 
; e L1sssiGnn L 


$0 


; Routine Size: 340 bytes, Routine Base: $CODE + O0BD 


> ud A i a 
PTR TE TE TELE 
oo 
vw 
en 
Nm 


a ad 


~~. 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
a 
00 
00 
a 


WnN— NOUS wr 


uw 


MEUM —O OOBNOAUES WN (“OOO NAUS UT 


—CO@ 


MEUM —O ONO UE WN“ O OONOuU fw —O”0 


6 
5 
6 


10 
chet al ae VERE FESASGS War TLebtalf 


pout ne GET_IMAGE (Image_name) = 
' 


'¢ 

; Functional description 
i This routine takes the image name specified, test to see that it 
: is not 9 zero length and then calls nop. image to load the image. 
; If the image gets loaded, it is called in order to obtain the 
the transfer vector information. 

Calling sequence 

Get_image (Image_name) 

; Input parameters 

; Image_name : Contains address of image_name descriptor 

Output parameters 

None 

Routine value 

i 

i 

i 


Worst error is returned. 


Local 
Array_addr, 
Array_size, 
Class: WORD SIGNED, 
Status 
Temp_xfer_addr, 
Transfer_offset: WORD, 
ype: WORD, 
Version: WORD, 
Xfer_addr; 


Bind 
Desc = .Image_name : SBBLOCKCdsc$k_d_bln) ; 


Literal 
Tran_vec_size = 8; 


Ssssssss 


eS = _-y 


Errorlog Image Loader “1984 23:49: AX=11 Bliss-32_V4.0-74 Pace 1 
pcm 71986 §2:07:90 FEAF SREXIMAGECOND1032¢ oe 


Status = map. taege ( desc, ater ,oger , 3 
If NOT .status then (Xfer_addr = 0; Return true); 


Call the image that was just loaded and recieve from it 
the address and size of an array of longword codes. Each 
3 these codes are of the ‘ait 


! Device_class ! Device_type ! 


!Transfer_offset! Version : 


The first longword contains the class and type, while the 
second longword contains the version number of each 

device module in the loaded image, along with the transfer 
vector offset value. 


Oe eee ee 


eeeee: PPPS SS SSPE SS SOTO 
Wwn—o ° 


Exec_image ( Xfer_addr, Array_addr, Array_size); 
iner i from 1 to .Array_size do 
egin 
Get_code ({ Array_addr, Class, Type, Version, Transfer_offset ); 


FSESSSRS 
VANS 


OCONOUE 


Temp_xfer_addr = .xfer_addr + tran_vec_size * .transfer_offset; 
Selectoneu .Class of set 
CDOC$_ZERO_CLASS): 
Ingr’ trom 1 to .max_misc_type do 
at. Ccenslate_ entry table C.J] EQL .Type then 


egin 
17’ Packet _precessor_version C.J) ga version then 
Packet_processor_xfer_addr [.J] = 


SESeSe 


PITS BB HF LNA AAAOA AUIS & 


-temp_xfer_addr 


SSSSSS 


SSSe 


ne 
Packet_processor_xfer_addr C.J] = 0; 
Class = -1; 


o 
oovoo 
Mwy 


If .class LSS 0 then 
class = 
lse 


3s 


BPP LEE EES eee 
WN —OOOnOulfwWnr—o 
ee] 

Le 


SUS 


Begin 
Signal (erf_unkentry, 1, .type); 


If .descCdsc$w_length) EQL 0 then (Xfer_addr = 0; Return true); 
| 

Class = 0; | 
j 


09999 Se SBS8SS8SE3EE83E3383883833E38338338S383833838383833333E3_E 


07C 00000 GET_IMAGE: 
. seh EFORD Save R2,R3,R4,R5,R6 : 0601 


10 
IMAGE_LOADER  Errorlog Image Loader 18. Se AX-11 Bliss-32 V4.0-74 Page 15 ER 
yoe e806 2m gt 1a-8ep=1988t $3559:93 HERE SeBS LARGE ONS: 835° ve 
; 424 End; 01 
5 425 End; | 3) 
; 64 
3 6 1 
; 4 COC$_DISK]: 
; 4 5 sate 8 
3; 4 Disk. xfer_addr ( typed = temp. xfer_addr; 
: ‘ pisk. “verston [.type .version; ot 
; o38 | 
: 4 5 cocs TAPE}: o1 
3; 6 Tepe. xfer_addr C veel = temp. xfer_addr; 01 
; 6 Tape-verston [.type .version; 
; 4 End; 
: 4640 
3; 461 is 
; 44 CDis_6uS): 
; 44 Begin 
: 4446 Bus_xfer_addr C. -tyged = .temp_xfer_addr; 
3; 445 Bus_verston [.type .version; 
: rr | End> 
; 464 
; 668 
3; 4469 Cocs_ SCORYs 
; 450 Begin 
; 451 Scom_xfer_addr C.type] = .temp_xfer_addr; 
: $26 Scom_verston [.type] = .version; 
3; 45 nd;~ 
: 4546 
; 455 CDCS_REALTIME): 
3 $28 Begin 
3; 6 Realtime_xfer_addr (.type] = .temp_xfer_addr; 
3 $38 Realtime_ “version C.type) = .version; 
; 460 
; 461 COCS_WORKSTATION): 
; 46 Begin 
: 46 Workstation_xfer_addr C tye * temp xfer_addr; 
3: 464 Workstation_version [ C.type -version; 
3; 465 End; 
3 reg 
3s 6 FOTMERUISEI: 
; 4 's re maybe 
s 6&6 
; 470 End; 
3; «471 
: 47 Return true; 
; 47 End; 

| 


10 
IMA OADER Errorlog Image Loader 15- -Sep-1 AX-11 Bliss-32 v4.0-7 
Moe ebob pellets 14-Sep- ets 3: $3: $3 ERF.SRC IMAGELOND B32: 
36 00000000' 00 9 MOV MAX_MISC_TYPE, R6 
E e. UBL2 #28; SP ~ 
04 Bt ¢ STW {MAGE NAME 
04 AF F 1 PUSHAB XFER_ADDR 
4 ac 0d 16 PUSHL IMAGE E 
FDD3 cf 9 Fe 1 CALLS ae MAP_IMAGE 
E 1¢ BLBS STATUS, ~2$ 
04 AE pA 1f 1$: CLRL XFER_ADOR 
ooge 1 BRW 20 
—E DD 2s: PUSHL SP 
1¢ AE OOF PUSHAB ARRAY_ADDR 
OC AE OF A PUSHAB XFER_ADDR 
000000006 00 Fe D CALLS #3, EXEC_IMAGE 
D4 000 CLAL 
4 11 000 BRB 10$ 
08 AE 9F 00038 3S: PUSHAB TRANSFER_OFFSET 
10 AE 9F 0 B PUSHAB VERSION 
18 «AE OOF ‘ PUSHAB 
AE 9F 0004 PUSHAB CLASS 
8 AE 9F 00044 PUSHAB ARRAY ADDR 
000000006 05 FB 00047 CALLS #5, GET CODE 
08 A 3¢ 004 MOVZWL TRANSFER OFFSET, RO 
04 BES 005 MOVAQ a@XFER R-ADBRLROS. *TEMP_XFER_ADDR 
1 14 AF ; 05 CVTWL or Agse R 
5 058 BNEQ 1 
54 6 9A 00050 MOVZBL MAX_MISC_TYPE, R4 
0 D4 00060 CLRL 
29 11 00062 BRB $ 
51 34 As DO 00064 4$: MOVL TRANSLATE ENTRY. TABLE, R1 
10 AE 614 81 0068 CMPW 30s (R11) LU), TYP 
1E : 006D BNEQ 7$ 
1 06 AB D O06F MOVL § PACKET_PROCESSOR_XFER_ADDR, R1 
2 0c Ab D0 99 ; MOVL tasty sPROCESSO “VERSION, R2 
OC AE 624 a 7 CMPW JJ, VERS 
Q 007C¢ BNEQ 
6140 DO 0007 MOVL teMp_ XFER_ADDR, (R1)(J) 
03 11 09 BRB 
6140 04 00084 5$: CLRL =._« (R11) (J) 
146 AE i A 0087 6$: RINE GU #1, CLASS 
D3 50 4 F 8 7$: AOBLEQ R4, J, 4$ 
14 Af 1 8$: TSTW cLAss 
1 94 BLSS 
7E 10 AE C 00096 MOVZWL TYPE, -(SP) 
DD O009A PUSHL 
000000006 8F DD 0009 SHL i UNKENTRY 
000000006 00 i 03 Fe A 8 CALLS 1 gf BSSIONAL 
F 11 QOOAC 10$: RB 
01 i 1 AF 11$: CMPW Rie #1 
: 2 0008 BNEQ 
51 FC A 4) 8 MOVO DISK_VERSION, R1 
A B7 12% MOVZWL TYPE? RO 
624 5 p BB MOVL§=T mB “XFER_ADDR, (R2)CROJ 
OB BRB i s* 
1 C1 13$ CMP , #2 


Pee Se Se Se Se Ge Ge Ge Se Se Se Se Ge Se Be G+ Se Fe Se Se Ge Se Se Se Fe Ge Se Se Se Ss Se Be Be Se Se Be Be Fe Se Fe Se Be Se Se Se Se Se Se Fe Be Ge Se Se Se Be Se 


TAGE A hOADER 


FF25 55 


Name 
$GLOBALS 
SPLIT 
$CODF 


File 
_$255$DUA28: CSYSLIBILIB.L32;1 


Errorlog Image Loader 


51 

0080 = BF 
51 

20 

51 

0060 8F 
51 

0046 §88F 
2} 

6120 


51 
6140 


50 


; Routine Size: 279 bytes, Routine Base: S$CODE + 


PSECT SUMMARY 


Bytes 


108 
abs 


NOVEC, WR 
NOVEC ,NOWR 
NOVEC ,NOWR 


Library Statistics 


Total 
18619 


OPP Puy PH UIEN POW POW POvwn ro 


SMM AWMANH AAA WAR MAR DARK 
FO-COOT ON 9 ON ON ON 


SQOCQCQCGOOCOOGOOOOGQOOOOOOOOOoOO 


SSOOSSCSOSOOOCOOCOCOSOOOOOOOOCO 
23 I 3 I IDQOOOOCOOOOSOOSOOOOOSCO 


— SO "DIOWS 28 NB OS 


021 


“$ 


NNW HMM MMmMoOCVIIINMOON 

OO —§ MDOLNMO OWA OFPor —— 
= 
w 
wn 


Sa 


Attributes 


T, RD ,NOEXE,NOSHR, 
T, RD ,NOEXE,NOSHR, 


T, RO, 


45 


EXE ,NOSHR, 


0 


-EXTRN 


Pages 
Mapped 


1000 


11 
i=3ep=1986 12:27:80 LEAF -seclIMAceLOAD-032; 


4$ 
TAPE_VERSION, R1 
g "28 
en RI 


#32 
16$ 


tf a R1 


#96 

1 phetae aabessopesen: R1 

Ri, #70 

a a | aalte tatats R1 


TYPE, 
TEMP _XFER_ADDR, (R1)CROJ 


XFER 
WORKSTATION V RSION, R1 
ARRAY SIZE, #1, 1, 3$ 
#1, RO 


LIBSSIGNAL, LIBSSTOP 
REL, CON, PIC,ALIGN(2) 
REL, CON, PIC,ALIGN(2) 

PIC, ALIGN(2) 


REL, CON, 


Processing 
Time 


00:02.0 


NO ONNN ONNN ON 
iw WIGS PoToTM fh 
NO VM OLV foe 


IRAGE fOADER Errorlog Image Loader 1Ssbeo-19gs 25:49:35 YANCY OU ascs2 us 85248 


; COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: IMAGELOAD/0BJ=OBJ$: IMAGELOAD MSRCS$: IMAGELOAD/UPDATE=(ENHS: IMAGELOAD) 


; 477 _ Bias 
; ig Fe 0 oe a ; 128 data bytes 
236 


; Lexenes/CPU-Rin: 
; pene’ hs Used: 0 pages 
; Compilation eetene 


lia: 
ag 


60 
00 
: 
oS 
09 
: 
00 
00 
os 
00 
ps! 
8s 
oC 
oC 
0 
of 


AH-BT13A-SE DI 
VAX/VMS V4.0 CO 


NT CORPORATION 
D PROPRIETARY 


0149 


